SVM Mac CD-ROM 59/SVM Mac CD-ROM - No 59.iso/Wanadoo/Media/Present.dcr/Internal_491_Parties.ls

Text File | 2000-01-18 | 1.6 KB | 57 lines

property pPiste1, pPiste2, pPiste3, pText0, pText1, pText2, pFilet0, pFilet1, pFilet2, pAnim0, pAnim1

on mouseEnter me
  set pPiste1 to the currentSpriteNum + 1
  set pPiste2 to the currentSpriteNum + 2
  set pPiste3 to the currentSpriteNum + 3
  case the name of member the memberNum of sprite the currentSpriteNum of
    "zoneInst":
      set pText0 to "Installer0"
      set pText1 to "Installer1"
      set pText2 to "Installer2"
      set pFilet0 to "FiletBleu0"
      set pFilet1 to "FiletBleu1"
      set pFilet2 to "FiletBleu2"
      set pAnim0 to "AnimNuit0"
      set pAnim1 to "AnimNuit1"
    "zoneDeco":
      set pText0 to "Decouvrir0"
      set pText1 to "Decouvrir1"
      set pText2 to "Decouvrir2"
      set pFilet0 to "FiletJaune0"
      set pFilet1 to "FiletJaune1"
      set pFilet2 to "FiletJaune2"
      set pAnim0 to "AnimNuit0"
      set pAnim1 to "AnimNuit1"
  end case
  set the member of sprite pPiste1 to pAnim1
  set the member of sprite pPiste2 to pText1
  set the member of sprite pPiste3 to pFilet1
  cursor(280)
end

on mouseDown me
  if pPiste2 <> VOID then
    set the member of sprite pPiste2 to pText2
    set the member of sprite pPiste3 to pFilet2
    cursor(290)
  end if
end

on mouseUp me
  if pPiste2 <> VOID then
    set the member of sprite pPiste2 to pText1
    set the member of sprite pPiste3 to pFilet1
    cursor(280)
  end if
end

on mouseLeave me
  if pPiste2 <> VOID then
    set the member of sprite pPiste1 to pAnim0
    set the member of sprite pPiste2 to pText0
    set the member of sprite pPiste3 to pFilet0
    cursor(-1)
  end if
end